home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 December
/
Ahoy_Magazine_87-12_1987_Double_L.d64
/
Frank's Child 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
414b
|
11 lines
0 print"[147]please wait..."
1 rem ==================================
2 rem commodares problem #44-2 :
3 rem frank's children
4 rem solution by
5 rem necah buyukdura
6 rem ==================================
10 a=b+c/2 : b=e+a/2 : c=2+2*e : d=e+1 : e=(c+d)/4
20 if (a=v)+(b=w)+(c=x)+(d=y)+(e=z)+5 then v=a : w=b : x=c : y=d : z=e : goto 10
30 print"andy:";a,,,,"bill:";b,,,,"carl:";c,,,,"dave:";d,,,,"emma:";e